home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / AfKayAs Crackme 2 keygen source.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-07-27  |  2.9 KB  |  89 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "AfKayAs Crackme 2 Keygen"
  5.    ClientHeight    =   2130
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3615
  9.    Icon            =   "AfKayAs Crackme 2 keygen source.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2130
  14.    ScaleWidth      =   3615
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Calculate"
  18.       Default         =   -1  'True
  19.       Height          =   495
  20.       Left            =   1200
  21.       TabIndex        =   1
  22.       Top             =   840
  23.       Width           =   1335
  24.    End
  25.    Begin VB.TextBox Text1 
  26.       Height          =   375
  27.       Left            =   960
  28.       TabIndex        =   0
  29.       ToolTipText     =   "Enter your name"
  30.       Top             =   240
  31.       Width           =   2415
  32.    End
  33.    Begin VB.Label Label2 
  34.       Caption         =   "Serial"
  35.       Height          =   375
  36.       Left            =   120
  37.       TabIndex        =   4
  38.       Top             =   1560
  39.       Width           =   735
  40.    End
  41.    Begin VB.Label Label3 
  42.       Caption         =   "Name"
  43.       Height          =   375
  44.       Left            =   120
  45.       TabIndex        =   3
  46.       Top             =   240
  47.       Width           =   735
  48.    End
  49.    Begin VB.Label Label1 
  50.       Alignment       =   2  'Center
  51.       Appearance      =   0  'Flat
  52.       BackColor       =   &H80000005&
  53.       BeginProperty Font 
  54.          Name            =   "MS Sans Serif"
  55.          Size            =   12
  56.          Charset         =   0
  57.          Weight          =   700
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.       ForeColor       =   &H80000008&
  63.       Height          =   375
  64.       Left            =   960
  65.       TabIndex        =   2
  66.       ToolTipText     =   "Click here to copy the serial to clipboard"
  67.       Top             =   1560
  68.       Width           =   2415
  69.    End
  70. Attribute VB_Name = "Form1"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_PredeclaredId = True
  74. Attribute VB_Exposed = False
  75. Private Sub Command1_Click()
  76. If Text1.Text = "" Then
  77.     MsgBox "Enter a valid name", vbOKOnly, "Keygen" 'test if username entered
  78.     Exit Sub
  79. End If
  80.     username = Text1.Text
  81.     ' serial = [lenght of username * 15B38h + ASCII_Code_Of_First_Char_From_Username]*3 - 2 +15
  82.     serial = (Len(username) * &H15B38 + Asc(username) + 2) * 3 - 2 + 15  ' the serial is calculated
  83.     Label1.Caption = serial 'serial is displayed in the Label1
  84.     Clipboard.SetText serial 'serial is copied to Clipboard
  85. End Sub
  86. Private Sub Command2_Click()
  87.     End 'exit the keygen
  88. End Sub
  89.